﻿Module Module1
  Sub Main()

    Dim NL As String = Environment.NewLine
    Dim messaggio As String = ""
    messaggio &= "Documenti: " &
      My.Computer.FileSystem.
      SpecialDirectories.MyDocuments
    messaggio &= NL & "Desktop: " &
      My.Computer.FileSystem.
      SpecialDirectories.Desktop
    messaggio &= NL & "ProgramFiles: " &
      My.Computer.FileSystem.
      SpecialDirectories.ProgramFiles
    messaggio &= NL & "Temp: " &
      My.Computer.FileSystem.
      SpecialDirectories.Temp
    messaggio &= NL & "MyMusic: " &
      My.Computer.FileSystem.
      SpecialDirectories.MyMusic
    messaggio &= NL & "MyPictures: " &
      My.Computer.FileSystem.
      SpecialDirectories.MyPictures
    messaggio &= NL & "CurrentUserApplicationData: " &
      My.Computer.FileSystem.
      SpecialDirectories.CurrentUserApplicationData
    messaggio &= NL & "AllUsersApplicationData: " &
      My.Computer.FileSystem.
      SpecialDirectories.AllUsersApplicationData
    Console.WriteLine(messaggio)
    Console.ReadLine()

  End Sub
End Module
